home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.1 / card_12654.txt < prev    next >
Text File  |  1989-02-26  |  1KB  |  59 lines
  1. -- card: 12654 from stack: in.1
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 13187
  5. -- name: ArrowKeys
  6. ----- HyperTalk script -----
  7. on arrowKey direction
  8.   if direction is "left" then put "That was left"
  9.   if direction is "right" then put "That was right"
  10.   if direction is "up" then put "That was up"
  11.   if direction is "down" then put "That was down"
  12. end arrowkey
  13.  
  14. on closecard
  15.   hide message window
  16. end closecard
  17.  
  18.  
  19.  
  20. -- part contents for background part 4
  21. ----- text -----
  22. 3
  23.  
  24. -- part contents for background part 3
  25. ----- text -----
  26. --
  27. -- ‚Ä¢‚Ä¢‚Ä¢From Steve Drazga 12/87‚Ä¢‚Ä¢‚Ä¢
  28. --
  29. -- To prevent the user from using a specific arrowkey replace "left"
  30. -- in the script with whatever key you want to disable.
  31. -- Click on an arrowkey to try this.
  32. --
  33. on arrowKey direction
  34.   if direction is not "left" then pass arrowKey
  35. end arrowkey
  36.  
  37. --
  38. --To disable all the arrowkeys use:
  39. --
  40. on arrowKey direction
  41. end arrowkey
  42.  
  43. --
  44. -- To do something special when an arrowkey is selected, use:
  45. --
  46. on arrowkey direction
  47.   if direction is up then
  48.     --special instructions for up arrowkey go here.
  49.     --there can be more than one.
  50.   else
  51.     pass arrowkey  -- remember if you don't pass the arrowkey, they won't do anything!
  52.   end if
  53. end arrowkey
  54.  
  55.  
  56.  
  57. -- part contents for background part 2
  58. ----- text -----
  59. ArrowKeys